home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 October / CD [BM9510].bin / programs / lotus / lotus001.dsk / MACROS / QKFUNCT.SMM < prev    next >
Encoding:
INI File  |  1994-08-11  |  30.1 KB  |  2,152 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     jmacro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     SHIFTJIS (Windows)
  9. [revisions]
  10.     0
  11. [prn]
  12.     QMS-PS 810
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [fldnames]
  18.     ╠¿░┘─▐1
  19.     ╠¿░┘─▐2
  20.     ╠¿░┘─▐3
  21.     ╠¿░┘─▐4
  22.     ╠¿░┘─▐5
  23.     ╠¿░┘─▐6
  24.     ╠¿░┘─▐7
  25.     ╠¿░┘─▐8
  26. [desc]
  27.     üùè╓Éöé≡Ägùpé╡é╜ëëÄZ
  28.     
  29.     
  30.     
  31.     
  32.     775429722
  33.     42
  34.     732570070
  35.     365
  36.     8
  37.     517
  38.     4188
  39.     14
  40.     14
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     1
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53. [lnopts]
  54.     2
  55.     Body Text
  56.     1
  57. [docopts]
  58.     5
  59.     2
  60. [GramStyle]
  61.     
  62. [tag]
  63.     û{ò╢
  64.     2
  65.     [fnt]
  66.         û╛Æ⌐
  67.         200
  68.         0
  69.         32768
  70.     [algn]
  71.         1
  72.         2
  73.         0
  74.         0
  75.         0
  76.     [spc]
  77.         17
  78.         204
  79.         2
  80.         0
  81.         0
  82.         2
  83.         100
  84.     [brk]
  85.         68
  86.     [line]
  87.         8
  88.         0
  89.         2
  90.         0
  91.         1
  92.         0
  93.         0
  94.         15
  95.         15
  96.         2
  97.     [spec]
  98.         0
  99.         0
  100.         
  101.         0
  102.         2
  103.         1
  104.         0
  105.         0
  106.         0
  107.         1
  108.     [nfmt]
  109.         280
  110.         1
  111.         2
  112.         .
  113.         ,
  114.         \
  115.     û{ò╢
  116.     0
  117.     0
  118. [tag]
  119.     ╠º▌╕╝«▌
  120.     3
  121.     [fnt]
  122.         û╛Æ⌐
  123.         200
  124.         0
  125.         32769
  126.     [algn]
  127.         1
  128.         2
  129.         0
  130.         0
  131.         0
  132.     [spc]
  133.         17
  134.         204
  135.         2
  136.         0
  137.         0
  138.         2
  139.         100
  140.     [brk]
  141.         68
  142.     [line]
  143.         8
  144.         0
  145.         2
  146.         0
  147.         1
  148.         0
  149.         0
  150.         15
  151.         15
  152.         2
  153.     [spec]
  154.         0
  155.         0
  156.         
  157.         0
  158.         2
  159.         1
  160.         0
  161.         0
  162.         0
  163.         1
  164.     [nfmt]
  165.         280
  166.         1
  167.         2
  168.         .
  169.         ,
  170.         \
  171.     û{ò╢
  172.     0
  173.     0
  174. [tag]
  175.     âëâxâï
  176.     4
  177.     [fnt]
  178.         û╛Æ⌐
  179.         240
  180.         0
  181.         32769
  182.     [algn]
  183.         1
  184.         2
  185.         0
  186.         0
  187.         0
  188.     [spc]
  189.         17
  190.         204
  191.         2
  192.         0
  193.         0
  194.         2
  195.         100
  196.     [brk]
  197.         68
  198.     [line]
  199.         8
  200.         0
  201.         2
  202.         0
  203.         1
  204.         0
  205.         0
  206.         15
  207.         15
  208.         2
  209.     [spec]
  210.         0
  211.         0
  212.         
  213.         0
  214.         2
  215.         1
  216.         0
  217.         0
  218.         0
  219.         1
  220.     [nfmt]
  221.         280
  222.         1
  223.         2
  224.         .
  225.         ,
  226.         \
  227.     û{ò╢
  228.     0
  229.     0
  230. [tag]
  231.     âwâbâ_
  232.     5
  233.     [fnt]
  234.         û╛Æ⌐
  235.         200
  236.         0
  237.         32769
  238.     [algn]
  239.         2
  240.         2
  241.         0
  242.         0
  243.         0
  244.     [spc]
  245.         17
  246.         204
  247.         2
  248.         0
  249.         0
  250.         2
  251.         100
  252.     [brk]
  253.         68
  254.     [line]
  255.         8
  256.         0
  257.         2
  258.         0
  259.         1
  260.         0
  261.         0
  262.         15
  263.         15
  264.         2
  265.     [spec]
  266.         0
  267.         0
  268.         
  269.         0
  270.         2
  271.         1
  272.         0
  273.         0
  274.         0
  275.         1
  276.     [nfmt]
  277.         280
  278.         1
  279.         2
  280.         .
  281.         ,
  282.         \
  283.     âwâbâ_
  284.     0
  285.     0
  286. [tag]
  287.     Number List
  288.     6
  289.     [fnt]
  290.         Times New Roman
  291.         240
  292.         0
  293.         49152
  294.     [algn]
  295.         1
  296.         1
  297.         360
  298.         360
  299.         360
  300.     [spc]
  301.         33
  302.         273
  303.         1
  304.         0
  305.         0
  306.         1
  307.         100
  308.     [brk]
  309.         4
  310.     [line]
  311.         8
  312.         0
  313.         1
  314.         0
  315.         1
  316.         0
  317.         0
  318.         10
  319.         10
  320.         1
  321.     [spec]
  322.         0
  323.         0
  324.         <*:>.
  325.         360
  326.         1
  327.         1
  328.         0
  329.         16
  330.         0
  331.         1
  332.     [nfmt]
  333.         272
  334.         1
  335.         2
  336.         .
  337.         ,
  338.         $
  339.     Number List
  340.     0
  341.     0
  342. [tag]
  343.     Subhead
  344.     7
  345.     [fnt]
  346.         Times New Roman
  347.         240
  348.         0
  349.         49155
  350.     [algn]
  351.         1
  352.         1
  353.         0
  354.         0
  355.         0
  356.     [spc]
  357.         33
  358.         273
  359.         1
  360.         72
  361.         72
  362.         1
  363.         100
  364.     [brk]
  365.         4
  366.     [line]
  367.         8
  368.         0
  369.         1
  370.         0
  371.         1
  372.         0
  373.         0
  374.         10
  375.         10
  376.         1
  377.     [spec]
  378.         0
  379.         2
  380.         
  381.         0
  382.         1
  383.         1
  384.         0
  385.         0
  386.         0
  387.         1
  388.     [nfmt]
  389.         272
  390.         1
  391.         2
  392.         .
  393.         ,
  394.         $
  395.     Subhead
  396.     0
  397.     0
  398. [tag]
  399.     Title
  400.     8
  401.     [fnt]
  402.         Arial
  403.         360
  404.         0
  405.         16385
  406.     [algn]
  407.         4
  408.         1
  409.         0
  410.         0
  411.         0
  412.     [spc]
  413.         33
  414.         446
  415.         1
  416.         144
  417.         72
  418.         1
  419.         100
  420.     [brk]
  421.         16
  422.     [line]
  423.         8
  424.         0
  425.         1
  426.         0
  427.         1
  428.         0
  429.         0
  430.         10
  431.         10
  432.         1
  433.     [spec]
  434.         0
  435.         1
  436.         
  437.         0
  438.         1
  439.         1
  440.         0
  441.         0
  442.         0
  443.         1
  444.     [nfmt]
  445.         272
  446.         1
  447.         2
  448.         .
  449.         ,
  450.         $
  451.     Title
  452.     0
  453.     0
  454. [tag]
  455.     Header
  456.     9
  457.     [fnt]
  458.         Times New Roman
  459.         240
  460.         0
  461.         49152
  462.     [algn]
  463.         1
  464.         1
  465.         0
  466.         0
  467.         0
  468.     [spc]
  469.         33
  470.         273
  471.         1
  472.         0
  473.         0
  474.         1
  475.         100
  476.     [brk]
  477.         4
  478.     [line]
  479.         8
  480.         0
  481.         1
  482.         0
  483.         1
  484.         0
  485.         0
  486.         10
  487.         10
  488.         1
  489.     [spec]
  490.         0
  491.         0
  492.         
  493.         0
  494.         1
  495.         1
  496.         0
  497.         0
  498.         0
  499.         1
  500.     [nfmt]
  501.         280
  502.         1
  503.         2
  504.         .
  505.         ,
  506.         $
  507.     Header
  508.     0
  509.     0
  510. [tag]
  511.     Footer
  512.     11
  513.     [fnt]
  514.         Times New Roman
  515.         240
  516.         0
  517.         49152
  518.     [algn]
  519.         1
  520.         1
  521.         0
  522.         0
  523.         0
  524.     [spc]
  525.         33
  526.         273
  527.         1
  528.         0
  529.         0
  530.         1
  531.         100
  532.     [brk]
  533.         4
  534.     [line]
  535.         8
  536.         0
  537.         1
  538.         0
  539.         1
  540.         0
  541.         0
  542.         10
  543.         10
  544.         1
  545.     [spec]
  546.         0
  547.         0
  548.         
  549.         0
  550.         1
  551.         1
  552.         0
  553.         0
  554.         0
  555.         1
  556.     [nfmt]
  557.         280
  558.         1
  559.         2
  560.         .
  561.         ,
  562.         $
  563.     Footer
  564.     0
  565.     0
  566. [tag]
  567.     Body Text
  568.     12
  569.     [fnt]
  570.         Times New Roman
  571.         240
  572.         0
  573.         49152
  574.     [algn]
  575.         1
  576.         1
  577.         0
  578.         0
  579.         0
  580.     [spc]
  581.         33
  582.         273
  583.         1
  584.         0
  585.         0
  586.         1
  587.         100
  588.     [brk]
  589.         4
  590.     [line]
  591.         8
  592.         0
  593.         1
  594.         0
  595.         1
  596.         0
  597.         0
  598.         10
  599.         10
  600.         1
  601.     [spec]
  602.         0
  603.         0
  604.         
  605.         0
  606.         1
  607.         1
  608.         0
  609.         0
  610.         0
  611.         1
  612.     [nfmt]
  613.         280
  614.         1
  615.         2
  616.         .
  617.         ,
  618.         $
  619.     Body Text
  620.     0
  621.     0
  622. [tag]
  623.     Body Single
  624.     0
  625.     [fnt]
  626.         Times New Roman
  627.         240
  628.         0
  629.         49152
  630.     [algn]
  631.         1
  632.         1
  633.         0
  634.         0
  635.         0
  636.     [spc]
  637.         33
  638.         273
  639.         1
  640.         0
  641.         0
  642.         1
  643.         100
  644.     [brk]
  645.         4
  646.     [line]
  647.         8
  648.         0
  649.         1
  650.         0
  651.         1
  652.         0
  653.         0
  654.         10
  655.         10
  656.         1
  657.     [spec]
  658.         0
  659.         0
  660.         
  661.         0
  662.         1
  663.         1
  664.         0
  665.         0
  666.         0
  667.         1
  668.     [nfmt]
  669.         280
  670.         1
  671.         2
  672.         .
  673.         ,
  674.         $
  675.     Body Single
  676.     0
  677.     0
  678. [tag]
  679.     Bullet
  680.     0
  681.     [fnt]
  682.         Times New Roman
  683.         240
  684.         0
  685.         49152
  686.     [algn]
  687.         1
  688.         1
  689.         0
  690.         288
  691.         288
  692.     [spc]
  693.         33
  694.         273
  695.         1
  696.         0
  697.         0
  698.         1
  699.         100
  700.     [brk]
  701.         4
  702.     [line]
  703.         8
  704.         0
  705.         1
  706.         0
  707.         1
  708.         0
  709.         0
  710.         10
  711.         10
  712.         1
  713.     [spec]
  714.         0
  715.         0
  716.         <*0>
  717.         360
  718.         1
  719.         1
  720.         0
  721.         0
  722.         0
  723.         1
  724.     [nfmt]
  725.         272
  726.         1
  727.         2
  728.         .
  729.         ,
  730.         $
  731.     Bullet
  732.     0
  733.     0
  734. [tag]
  735.     Bullet 1
  736.     0
  737.     [fnt]
  738.         Times New Roman
  739.         240
  740.         0
  741.         49152
  742.     [algn]
  743.         1
  744.         1
  745.         288
  746.         288
  747.         288
  748.     [spc]
  749.         33
  750.         273
  751.         1
  752.         0
  753.         0
  754.         1
  755.         100
  756.     [brk]
  757.         4
  758.     [line]
  759.         8
  760.         0
  761.         1
  762.         0
  763.         1
  764.         0
  765.         0
  766.         10
  767.         10
  768.         1
  769.     [spec]
  770.         0
  771.         0
  772.         <*5>
  773.         0
  774.         1
  775.         1
  776.         0
  777.         0
  778.         0
  779.         1
  780.     [nfmt]
  781.         280
  782.         1
  783.         2
  784.         .
  785.         ,
  786.         $
  787.     Bullet 1
  788.     0
  789.     0
  790. [lay]
  791.     Standard
  792.     513
  793.     [rght]
  794.         15840
  795.         12240
  796.         1
  797.         1440
  798.         1440
  799.         1
  800.         1440
  801.         1440
  802.         0
  803.         0
  804.         0
  805.         0
  806.         0
  807.         2
  808.         1
  809.         1440
  810.         10800
  811.         12
  812.         1
  813.         720
  814.         1
  815.         1440
  816.         1
  817.         2160
  818.         1
  819.         2880
  820.         1
  821.         3600
  822.         1
  823.         4320
  824.         1
  825.         5040
  826.         1
  827.         5760
  828.         1
  829.         6480
  830.         1
  831.         7200
  832.         1
  833.         7920
  834.         1
  835.         8640
  836.     [hrght]
  837.     [lyfrm]
  838.         1
  839.         11200
  840.         0
  841.         0
  842.         12240
  843.         1440
  844.         0
  845.         1
  846.         3
  847.         0 0 0 0 0 0 0
  848.         0
  849.         0
  850.         1
  851.     [frmlay]
  852.         1440
  853.         12240
  854.         1
  855.         1440
  856.         72
  857.         1
  858.         792
  859.         1440
  860.         0
  861.         0
  862.         0
  863.         0
  864.         1
  865.         0
  866.         1
  867.         1440
  868.         10800
  869.         2
  870.         2
  871.         4680
  872.         3
  873.         9360
  874.     [txt]
  875. @û{ò╢@Peyton McManus
  876.  
  877. @û{ò╢@Lotus WPD
  878.  
  879. >
  880.     [frght]
  881.     [lyfrm]
  882.         1
  883.         13248
  884.         0
  885.         14400
  886.         12240
  887.         15840
  888.         0
  889.         1
  890.         3
  891.         0 0 0 0 0 0 0
  892.         0
  893.         0
  894.         2
  895.     [frmlay]
  896.         15840
  897.         12240
  898.         1
  899.         1440
  900.         792
  901.         1
  902.         14472
  903.         1440
  904.         0
  905.         0
  906.         0
  907.         0
  908.         1
  909.         0
  910.         1
  911.         1440
  912.         10800
  913.         2
  914.         2
  915.         4680
  916.         3
  917.         9360
  918.     [txt]
  919. >
  920. [elay]
  921. [l1]
  922.     0
  923. [pg]
  924.     1
  925.     52 0 5 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  926. [edoc]
  927. @û{ò╢@' Macro to return the value of an @ function.  Demonstrates basic use of Ltsce01.dll
  928.  
  929. @û{ò╢@
  930. @û{ò╢@Define NumDec    2
  931.  
  932. @û{ò╢@Define EM_LimitText 1045
  933.  
  934. @û{ò╢@Define VK_F1        112
  935.  
  936. @û{ò╢@
  937. @û{ò╢@Declare DataChange(Hdlg, id, value)
  938.  
  939. @û{ò╢@Declare FontDlg(Action, Hdlg, id)
  940.  
  941. @û{ò╢@Declare CellEngine(action,Formula)
  942.  
  943. @û{ò╢@Declare ManageList(Hdlg, id, section)
  944.  
  945. @û{ò╢@Declare RadioCall(Hdlg, id, value)
  946.  
  947. @û{ò╢@Declare DoIt(Hdlg, id)
  948.  
  949. @û{ò╢@
  950. @û{ò╢@Define    Desc    "<:f,1û╛Æ⌐,>ÉöÄ«é⌐üùè╓Éöé≡ôⁿù═é╡é─é¡é╛é│éó<:f>"'Enter the formula or @function below:"
  951.  
  952. @û{ò╢@Define    Desc2    "<:f,1û╛Æ⌐,>ÄOé┬é╠Éöé╠ìçîvé≡éRö{é╖éΘé╚éτüA<:f>@sum(12,22,34)*3<:f,1û╛Æ⌐,>é╞ôⁿù═<:f>"'To calculate the sum of three numbers multiplied by 12, type
  953.  
  954. @û{ò╢@
  955. @û{ò╢@Define    HelpText    "<:f,1û╛Æ⌐,>üùè╓Éöé╠âèâXâgé⌐éτÉöÄ«é╔æ}ôⁿé╖éΘé▒é╞é¬é┼é½é▄é╖<:f>"'Choose @Functions to get a list of available @functions to insert into your formula."
  956.  
  957. @╠º▌╕╝«▌@Function Main()
  958.  
  959. @û{ò╢@DefStr hInstance;
  960.  
  961. @û{ò╢@Mac = GetRunningMacroFile$()
  962.  
  963. @û{ò╢@FontDlg(1,0,0)
  964.  
  965. @û{ò╢@CellEngine(1,0)
  966.  
  967. @û{ò╢@FillEdit(1001, Desc)
  968.  
  969. @û{ò╢@FillEdit(1003, Desc2)
  970.  
  971. @û{ò╢@FillEdit(1004, HelpText)
  972.  
  973. @û{ò╢@SetDlgCallBack(0,"{Mac}!InitDlg")
  974.  
  975. @û{ò╢@SetDlgCallBack(22,"{Mac}!FunButton")
  976.  
  977. @û{ò╢@SetDlgCallBack(8000,"{Mac}!DataChange")
  978.  
  979. @û{ò╢@DlgKeyInterrupt(VK_F1, "{mac}!DisplayHelp")
  980.  
  981. @û{ò╢@Box = DialogBox(".","Deprec")
  982.  
  983. @û{ò╢@If Box = 3
  984.  
  985. @û{ò╢@    Answer = GetDialogField$(8004)
  986.  
  987. @û{ò╢@    ClipBoardWrite(Answer,1)
  988.  
  989. @û{ò╢@Endif
  990.  
  991. @û{ò╢@FontDlg(4,0,0)    ' Destroy the small font object and free the global variable
  992.  
  993. @û{ò╢@CellEngine(0,0)        ' Shut down the engine and free the global variable
  994.  
  995. @û{ò╢@End function
  996.  
  997. @û{ò╢@
  998. @û{ò╢@
  999. @╠º▌╕╝«▌@Function DataChange(Hdlg, id, value)
  1000.  
  1001. @û{ò╢@IgnoreKeyBoard(2)
  1002.  
  1003. @û{ò╢@DefStr Allowance;
  1004.  
  1005. @û{ò╢@Formula = GetDlgItemText(hDlg, 8000)
  1006.  
  1007. @û{ò╢@Define    Form    "@IF({Formula}<<1E49,@Round({Formula},2),@ERR)"
  1008.  
  1009. @û{ò╢@' the formula traps for values
  1010.  
  1011. @û{ò╢@Answer = CellEngine(3,Form)
  1012.  
  1013. @û{ò╢@If IsNumeric(Answer)
  1014.  
  1015. @û{ò╢@    Answer = Answer * 1
  1016.  
  1017. @û{ò╢@    SetDlgItemText(hDlg, 8004, FormatNum$("","",NumDec,Answer))
  1018.  
  1019. @û{ò╢@Else
  1020.  
  1021. @û{ò╢@    SetDlgItemText(hDlg, 8004, Answer)
  1022.  
  1023. @û{ò╢@Endif
  1024.  
  1025. @û{ò╢@<:#239,9360>
  1026.  
  1027. @û{ò╢@<:#239,9360>End Function
  1028.  
  1029. @û{ò╢@<:#239,9360>
  1030.  
  1031. @╠º▌╕╝«▌@<:#240,9360>Function InitDlg(hDlg, id, value)
  1032.  
  1033. @û{ò╢@<:#240,9360>' use the fontdlg function to display the following control with a small font
  1034.  
  1035. @û{ò╢@<:#240,9360>IgnoreKeyBoard(2)
  1036.  
  1037. @û{ò╢@<:#240,9360>HourGlass(on)
  1038.  
  1039. @û{ò╢@<:#240,9360>For t = 1000 to 1004
  1040.  
  1041. @û{ò╢@<:#240,9360>    FontDlg(3, Hdlg, T)
  1042.  
  1043. @û{ò╢@<:#240,9360>Next
  1044.  
  1045. @û{ò╢@<:#240,9360>FontDlg(3, Hdlg, 8000)
  1046.  
  1047. @û{ò╢@<:#240,9360>'SetDlgItemText(hDlg, 8004, FormatNum$("","",NumDec,0))
  1048.  
  1049. @û{ò╢@<:#240,9360>AppSendMessage(GetDlgItem(Hdlg, 8000),EM_LimitText,120,0)
  1050.  
  1051. @û{ò╢@<:#240,9360>HourGlass(off)
  1052.  
  1053. @û{ò╢@<:#240,9360>End Function
  1054.  
  1055. @û{ò╢@<:#240,9360>
  1056.  
  1057. @╠º▌╕╝«▌@<:#240,9360>Function FunButton(Hdlg, id, value)
  1058.  
  1059. @û{ò╢@<:#240,9360>
  1060.  
  1061. @û{ò╢@<:#240,9360>DoIt(Hdlg, 8000)
  1062.  
  1063. @û{ò╢@<:#240,9360>DataChange(Hdlg, 8000,GetDlgItemText(Hdlg, 8000))
  1064.  
  1065. @û{ò╢@<:#240,9360>End Function
  1066.  
  1067. @û{ò╢@<:#240,9360>
  1068.  
  1069. @û{ò╢@<:#240,9360>
  1070.  
  1071. @û{ò╢@<:#240,9360>
  1072.  
  1073. @û{ò╢@<:#240,9360>
  1074.  
  1075. @╠º▌╕╝«▌@<:#240,9360>function DisplayHelp()
  1076.  
  1077. @û{ò╢@<:#240,9360>' two defines needed for help.  The help name and panel number are defined above
  1078.  
  1079. @û{ò╢@<:#240,9360>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
  1080.  
  1081. @û{ò╢@<:#240,9360>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  1082.  
  1083. @û{ò╢@<:#240,9360>
  1084.  
  1085. @û{ò╢@<:#240,9360>
  1086.  
  1087. @û{ò╢@<:#240,9360>prohWnd = FindWindowa("AmiProWndA", 0)
  1088.  
  1089. @û{ò╢@<:#240,9360>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
  1090.  
  1091. @û{ò╢@<:#240,9360>PanelNum= 100 
  1092.  
  1093. @û{ò╢@<:#240,9360>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
  1094.  
  1095. @û{ò╢@<:#240,9360>end function
  1096.  
  1097. @û{ò╢@<:#240,9360>
  1098.  
  1099. @û{ò╢@<:#240,9360>
  1100.  
  1101. @û{ò╢@<:#240,9360>
  1102.  
  1103. @û{ò╢@<:#240,9360>
  1104.  
  1105. @û{ò╢@<:p<* >>
  1106.  
  1107. @╠º▌╕╝«▌@<:#240,9360>Function CellEngine(Action, Formula)
  1108.  
  1109. @û{ò╢@<:#240,9360>'Available Actions
  1110.  
  1111. @û{ò╢@<:#240,9360>'    1         Start the engine and allocate globalvar
  1112.  
  1113. @û{ò╢@<:#240,9360>'    2        Return the handle to the instance of the sheet
  1114.  
  1115. @û{ò╢@<:#240,9360>'    3        Pass a formula as the second param
  1116.  
  1117. @û{ò╢@<:#240,9360>'    0        Shut everything down
  1118.  
  1119. @û{ò╢@<:#240,9360>'    Default    Expect a formula and return an answer
  1120.  
  1121. @û{ò╢@<:#240,9360>
  1122.  
  1123. @û{ò╢@<:#240,9360>' these defines may be useful at the beginning of your macro
  1124.  
  1125. @û{ò╢@<:#240,9360>Define StartEngine    1
  1126.  
  1127. @û{ò╢@<:#240,9360>Define GetInstance    2
  1128.  
  1129. @û{ò╢@<:#240,9360>Define    PassFormula    3
  1130.  
  1131. @û{ò╢@<:#240,9360>Define CloseEngine    0
  1132.  
  1133. @û{ò╢@<:#240,9360>
  1134.  
  1135. @û{ò╢@<:#240,9360>Define    CECREATEINSTANCE(LPHANDLE)    DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
  1136.  
  1137. @û{ò╢@<:#240,9360>Define    CEDESTROYINSTANCE(HANDLE)    DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
  1138.  
  1139. @û{ò╢@<:#480,9360>Define    CECALCNOW(HINSTANCE, lpFormula, lpOutPut)    DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
  1140.  
  1141. @û{ò╢@<:#240,9360>
  1142.  
  1143. @û{ò╢@<:#240,9360>DefStr hInstance, Answer, Var;
  1144.  
  1145. @û{ò╢@<:#240,9360>Mac = GetRunningMacroFile$()
  1146.  
  1147. @û{ò╢@<:#240,9360>GlobalInstance = StrCat$(Mac,"hIstance")
  1148.  
  1149. @û{ò╢@<:#240,9360>AmiDir = GetAmiDirectory$()
  1150.  
  1151. @û{ò╢@<:#240,9360>
  1152.  
  1153. @û{ò╢@<:#240,9360>Switch Action
  1154.  
  1155. @û{ò╢@<:#240,9360>    Case 1
  1156.  
  1157. @û{ò╢@<:#240,9360>        ' start the engine
  1158.  
  1159. @û{ò╢@<:#240,9360>        LibId = DLLLoadLib("{AmiDir}LTSCE01.DLL","CECreateInstance","HO")
  1160.  
  1161. @û{ò╢@<:#240,9360>        If LibId = 0
  1162.  
  1163. @û{ò╢@<:#480,9360>            Message("LTSCE01.DLL<:f,1û╛Æ⌐,>é¬î⌐é┬é⌐éΦé▄é╣é± <:f><:f,1û╛Æ⌐,>Windows├▐¿┌╕─╪░é╔║╦▀░é╡é─é¡é╛é│éó<:f>") ' not found.  Copy the dll to your windows directory    
  1164.  
  1165. @û{ò╢@<:#240,9360>            Return -1;
  1166.  
  1167. @û{ò╢@<:#240,9360>        Endif
  1168.  
  1169. @û{ò╢@<:#240,9360>        RetVal = CECREATEINSTANCE(&hInstance)
  1170.  
  1171. @û{ò╢@<:#240,9360>        AllocGlobalVar("{GlobalInstance}",1)
  1172.  
  1173. @û{ò╢@<:#240,9360>        AllocGlobalVar("{Mac}LibId",1)
  1174.  
  1175. @û{ò╢@<:#240,9360>        SetGlobalVar("{Mac}Libid",LibId)
  1176.  
  1177. @û{ò╢@<:#240,9360>        SetGlobalVar("{GlobalInstance}",hInstance)
  1178.  
  1179. @û{ò╢@<:#240,9360>        Return hInstance;
  1180.  
  1181. @û{ò╢@<:#240,9360>        Break;
  1182.  
  1183. @û{ò╢@<:#240,9360>
  1184.  
  1185. @û{ò╢@<:#240,9360>    Case 2
  1186.  
  1187. @û{ò╢@<:#240,9360>        ' return the handle to the instance of the sheet
  1188.  
  1189. @û{ò╢@<:#240,9360>        AllocGlobalVar("{GlobalInstance}",1)
  1190.  
  1191. @û{ò╢@<:#240,9360>        hInstance = GetGlobalVar$("{GlobalInstance}")
  1192.  
  1193. @û{ò╢@<:#240,9360>        Return hInstance;
  1194.  
  1195. @û{ò╢@<:#240,9360>        Break;
  1196.  
  1197. @û{ò╢@<:#240,9360>
  1198.  
  1199. @û{ò╢@<:#240,9360>    Case 3;
  1200.  
  1201. @û{ò╢@<:#240,9360>        ' Calculate the formula and return the answer
  1202.  
  1203. @û{ò╢@<:#240,9360>            AllocGlobalVar("{GlobalInstance}",1)
  1204.  
  1205. @û{ò╢@<:#240,9360>            hInstance = GetGlobalVar$("{GlobalInstance}")
  1206.  
  1207. @û{ò╢@<:#240,9360>            CECalcNow(hInstance,"{Formula}",&Answer)
  1208.  
  1209. @û{ò╢@<:#226,9360>            Return Answer;
  1210.  
  1211. @û{ò╢@<:#240,9360>        Break;
  1212.  
  1213. @û{ò╢@<:#240,9360>        
  1214.  
  1215. @û{ò╢@<:#240,9360>
  1216.  
  1217. @û{ò╢@<:#240,9360>    Case 0
  1218.  
  1219. @û{ò╢@<:#240,9360>        ' destroy the instance of the sheet and free the global var and libid
  1220.  
  1221. @û{ò╢@<:#240,9360>        AllocGlobalVar("{GlobalInstance}",1)
  1222.  
  1223. @û{ò╢@<:#240,9360>        AllocGlobalVar("{Mac}LibId",1)
  1224.  
  1225. @û{ò╢@<:#240,9360>        hInstance = GetGlobalVar$("{GlobalInstance}")
  1226.  
  1227. @û{ò╢@<:#240,9360>        LibId = GetGlobalVar$("{Mac}LibId")
  1228.  
  1229. @û{ò╢@<:#240,9360>        If hInstance
  1230.  
  1231. @û{ò╢@<:#240,9360>            CEDestroyInstance(hInstance)
  1232.  
  1233. @û{ò╢@<:#240,9360>            DllFreeLib(Libid)
  1234.  
  1235. @û{ò╢@<:#240,9360>        Endif
  1236.  
  1237. @û{ò╢@<:#240,9360>        FreeGlobalVar("{GlobalInstance}")
  1238.  
  1239. @û{ò╢@<:#240,9360>        FreeGlobalVar("{Mac}LibId")
  1240.  
  1241. @û{ò╢@<:#240,9360>        Break;
  1242.  
  1243. @û{ò╢@<:#240,9360>
  1244.  
  1245. @û{ò╢@<:#240,9360>    Default
  1246.  
  1247. @û{ò╢@<:#240,9360>EndSwitch
  1248.  
  1249. @û{ò╢@<:#240,9360>End Function
  1250.  
  1251. @û{ò╢@<:#240,9360>
  1252.  
  1253. @û{ò╢@<:#240,9360>
  1254.  
  1255. @û{ò╢@<:#240,9360>
  1256.  
  1257. @û{ò╢@<:#240,9360>
  1258.  
  1259. @û{ò╢@<:#240,9360>
  1260.  
  1261. @╠º▌╕╝«▌@<:#240,9360>Function FontDlg(Action, Hdlg, id)
  1262.  
  1263. @û{ò╢@<:#240,9360>' 1    Create a font and allocvar
  1264.  
  1265. @û{ò╢@<:#240,9360>' 2    Return the handle of the create font 
  1266.  
  1267. @û{ò╢@<:#240,9360>' 3    Set the id specified to the font
  1268.  
  1269. @û{ò╢@<:#240,9360>' 4    Freeglobalvar and delete created object
  1270.  
  1271. @û{ò╢@<:#240,9360>
  1272.  
  1273. @û{ò╢@<:#480,9360>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  1274.  
  1275. @û{ò╢@<:#240,9360>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)
  1276.  
  1277. @û{ò╢@<:#480,9360>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  1278.  
  1279. @û{ò╢@<:#240,9360>
  1280.  
  1281. @û{ò╢@<:#240,9360>
  1282.  
  1283. @û{ò╢@<:#240,9360>Switch Action
  1284.  
  1285. @û{ò╢@<:#240,9360>    Case 1    ' Create the font and store it
  1286.  
  1287. @û{ò╢@<:#480,9360>        Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 128, 0, 0, 0, 32, "System") 'Helv
  1288.  
  1289. @û{ò╢@<:#240,9360>        AllocGlobalVar("FontHandle",1)
  1290.  
  1291. @û{ò╢@<:#240,9360>        If Font
  1292.  
  1293. @û{ò╢@<:#240,9360>            SetGlobalVar("FontHandle",Font)
  1294.  
  1295. @û{ò╢@<:#240,9360>            Return Font
  1296.  
  1297. @û{ò╢@<:#240,9360>        Else
  1298.  
  1299. @û{ò╢@<:#240,9360>            Return 0;    ' no font
  1300.  
  1301. @û{ò╢@<:#240,9360>        Endif
  1302.  
  1303. @û{ò╢@<:#240,9360>        Break;
  1304.  
  1305. @û{ò╢@<:#240,9360>    Case 2    ' Return the handle to the font
  1306.  
  1307. @û{ò╢@<:#240,9360>        Handle = GetGlobalVar$("FontHandle")
  1308.  
  1309. @û{ò╢@<:#240,9360>        If Handle 
  1310.  
  1311. @û{ò╢@<:#226,9360>            Return Handle
  1312.  
  1313. @û{ò╢@<:#240,9360>        Else
  1314.  
  1315. @û{ò╢@<:#240,9360>            Return 0
  1316.  
  1317. @û{ò╢@<:#240,9360>        Endif
  1318.  
  1319. @û{ò╢@<:#240,9360>
  1320.  
  1321. @û{ò╢@<:#240,9360>    Case 3    ' Set the id to the font
  1322.  
  1323. @û{ò╢@<:#240,9360>        Handle = GetGlobalVar$("FontHandle")
  1324.  
  1325. @û{ò╢@<:#240,9360>        If Handle 
  1326.  
  1327. @û{ò╢@<:#240,9360>            IdControl = GetDlgITem(Hdlg, id)
  1328.  
  1329. @û{ò╢@<:#240,9360>            SendMessageDlg(idControl, 0x30, Handle, 0)
  1330.  
  1331. @û{ò╢@<:#240,9360>            Return 1
  1332.  
  1333. @û{ò╢@<:#240,9360>        Else
  1334.  
  1335. @û{ò╢@<:#240,9360>            Return 0
  1336.  
  1337. @û{ò╢@<:#240,9360>        Endif
  1338.  
  1339. @û{ò╢@<:#240,9360>        Break;        
  1340.  
  1341. @û{ò╢@<:#240,9360>        
  1342.  
  1343. @û{ò╢@<:#240,9360>    Case 4    ' Delete the font and clear the var
  1344.  
  1345. @û{ò╢@<:#240,9360>        Handle = GetGlobalVar$("FontHandle")
  1346.  
  1347. @û{ò╢@<:#240,9360>        If Handle
  1348.  
  1349. @û{ò╢@<:#240,9360>            DeleteObjectDLG(Handle)
  1350.  
  1351. @û{ò╢@<:#240,9360>            Stat = 1    
  1352.  
  1353. @û{ò╢@<:#240,9360>        Else
  1354.  
  1355. @û{ò╢@<:#240,9360>            Stat = 0
  1356.  
  1357. @û{ò╢@<:#240,9360>        Endif
  1358.  
  1359. @û{ò╢@<:#240,9360>        FreeGlobalVar("FontHandle")
  1360.  
  1361. @û{ò╢@<:#240,9360>        Return Stat        
  1362.  
  1363. @û{ò╢@<:#240,9360>    Default
  1364.  
  1365. @û{ò╢@<:#240,9360>EndSwitch    
  1366.  
  1367. @û{ò╢@<:#240,9360>
  1368.  
  1369. @û{ò╢@<:#240,9360>End Function
  1370.  
  1371. @û{ò╢@<:#240,9360>
  1372.  
  1373. @╠º▌╕╝«▌@<:#240,9360>Function DoIt(Hdlg, Id)
  1374.  
  1375. @û{ò╢@<:#240,9360>Define    EnableWindowIns()    DllCall("User,EnableWindow,AHA",%1,%2)
  1376.  
  1377. @û{ò╢@<:#240,9360>Define SetFocusIns() DllCall("user,SetFocus,HH",%1)
  1378.  
  1379. @û{ò╢@<:#240,9360>Define        LB_RESETCONTENT        0x405
  1380.  
  1381. @û{ò╢@<:#240,9360>Define        ExID        8010
  1382.  
  1383. @û{ò╢@<:#240,9360>Define        DescID        1001
  1384.  
  1385. @û{ò╢@<:#240,9360>Define        FinancialRadio    20
  1386.  
  1387. @û{ò╢@<:#240,9360>Define        StatRadio    21
  1388.  
  1389. @û{ò╢@<:#240,9360>Define        MathRadio    22
  1390.  
  1391. @û{ò╢@<:#240,9360>Define        LogicRadio    23
  1392.  
  1393. @û{ò╢@<:#250,9360>Define        FinanSect    "<:f,1élér û╛Æ⌐,>ìαû▒è╓Éö<:f>" 'Financial"
  1394.  
  1395. @û{ò╢@<:#250,9360>Define        StatSect    "<:f,1élér û╛Æ⌐,>ÄZÅpè╓Éö"<:f> 'Statistical"
  1396.  
  1397. @û{ò╢@<:#250,9360>Define        MathSect    "<:f,1élér û╛Æ⌐,>ô¥îvè╓Éö<:f>" 'Mathematical"
  1398.  
  1399. @û{ò╢@<:#250,9360>Define        LogicSect    "<:f,1élér û╛Æ⌐,>ÿ_ù¥è╓Éö"<:f> 'Logical"
  1400.  
  1401. @û{ò╢@<:#240,9360>
  1402.  
  1403. @û{ò╢@<:#240,9360>
  1404.  
  1405. @û{ò╢@<:#240,9360>Define        IniName        "AmiCalc.ini"
  1406.  
  1407. @û{ò╢@<:#240,9360>Define        Delimiter    "~"
  1408.  
  1409. @û{ò╢@<:#240,9360>
  1410.  
  1411. @û{ò╢@<:#240,9360>
  1412.  
  1413. @û{ò╢@<:#240,9360>EnableWindowIns(Hdlg,0)
  1414.  
  1415. @û{ò╢@<:#240,9360>Mac = GetRunningMacroFile$()
  1416.  
  1417. @û{ò╢@<:#226,9360>SetDlgCallBack(FinancialRadio,"{Mac}!RadioCall")
  1418.  
  1419. @û{ò╢@<:#240,9360>SetDlgCallBack(StatRadio,"{Mac}!RadioCall")
  1420.  
  1421. @û{ò╢@<:#240,9360>SetDlgCallBack(MathRadio,"{Mac}!RadioCall")
  1422.  
  1423. @û{ò╢@<:#240,9360>SetDlgCallBack(LogicRadio,"{Mac}!RadioCall")
  1424.  
  1425. @û{ò╢@<:#240,9360>SetDlgCallBack(0,"{Mac}!InitCall")
  1426.  
  1427. @û{ò╢@<:#240,9360>SetDlgCallBack(9000,"{Mac}!RadioCall")
  1428.  
  1429. @û{ò╢@<:#240,9360>DlgKeyInterrupt(VK_F1, "{mac}!DisplayHelp")
  1430.  
  1431. @û{ò╢@<:#240,9360>FillEdit(20,1)
  1432.  
  1433. @û{ò╢@<:#240,9360>Box = DialogBox(".","More")
  1434.  
  1435. @û{ò╢@<:#240,9360>If Box = 1
  1436.  
  1437. @û{ò╢@<:#240,9360>    ' need to paste to the edit box
  1438.  
  1439. @û{ò╢@<:#240,9360>    Text = GetDlgItemText(Hdlg, Id)
  1440.  
  1441. @û{ò╢@<:#240,9360>    Example = GetDialogField$(ExID)
  1442.  
  1443. @û{ò╢@<:#240,9360>    NewText = StrCat$(Text, Example)
  1444.  
  1445. @û{ò╢@<:#240,9360>    SetDlgItemText(Hdlg, Id, NewText)
  1446.  
  1447. @û{ò╢@<:#240,9360>Endif
  1448.  
  1449. @û{ò╢@<:#240,9360>EnableWindowIns(Hdlg,1)
  1450.  
  1451. @û{ò╢@<:#240,9360>SetFocusIns(GetDlgItem(Hdlg, Id))
  1452.  
  1453. @û{ò╢@<:#240,9360>End Function
  1454.  
  1455. @û{ò╢@<:#240,9360>
  1456.  
  1457. @û{ò╢@<:#240,9360>
  1458.  
  1459. @╠º▌╕╝«▌@<:#240,9360>Function InitCall(Hdlg, id, value)
  1460.  
  1461. @û{ò╢@<:#240,9360>IgnoreKeyBoard(2)
  1462.  
  1463. @û{ò╢@<:#240,9360>
  1464.  
  1465. @û{ò╢@<:#240,9360>FontDlg(3,Hdlg, DescID)
  1466.  
  1467. @û{ò╢@<:#240,9360>FontDlg(3, Hdlg, ExID)
  1468.  
  1469. @û{ò╢@<:#240,9360>
  1470.  
  1471. @û{ò╢@<:#240,9360>
  1472.  
  1473. @û{ò╢@<:#240,9360>ManageList(Hdlg, 9000, FinanSect)
  1474.  
  1475. @û{ò╢@<:#240,9360>Key= GetDlgItemText(Hdlg, 9000)
  1476.  
  1477. @û{ò╢@<:#240,9360>FullText  = GetProfileString$(FinanSect,Key,IniName)
  1478.  
  1479. @û{ò╢@<:#240,9360>Example = StrField$(FullText, 2, Delimiter)
  1480.  
  1481. @û{ò╢@<:#240,9360>Descx = StrField$(FullText, 1, Delimiter)
  1482.  
  1483. @û{ò╢@<:#240,9360>SetDlgITemText(Hdlg, ExID,Example)
  1484.  
  1485. @û{ò╢@<:#240,9360>SetDlgItemText(hdlg, DescID, Descx)
  1486.  
  1487. @û{ò╢@<:#240,9360>End Function
  1488.  
  1489. @û{ò╢@<:#240,9360>
  1490.  
  1491. @û{ò╢@<:#240,9360>
  1492.  
  1493. @╠º▌╕╝«▌@<:#240,9360>Function RadioCall(hdlg, id, value)
  1494.  
  1495. @û{ò╢@<:#240,9360>IgnoreKeyBoard(2)
  1496.  
  1497. @û{ò╢@<:#240,9360>If GetDlgItemText(Hdlg, FinancialRadio)
  1498.  
  1499. @û{ò╢@<:#240,9360>    Section = FinanSect
  1500.  
  1501. @û{ò╢@<:#240,9360>ElseIf GetDlgItemText(Hdlg, MathRadio)
  1502.  
  1503. @û{ò╢@<:#240,9360>    Section = MathSect
  1504.  
  1505. @û{ò╢@<:#240,9360>ElseIf GetDlgITemText(hdlg, StatRadio)
  1506.  
  1507. @û{ò╢@<:#240,9360>    Section = StatSect
  1508.  
  1509. @û{ò╢@<:#240,9360>ElseIf GetDlgItemText(hdlg, LogicRadio)
  1510.  
  1511. @û{ò╢@<:#240,9360>    Section = LogicSect
  1512.  
  1513. @û{ò╢@<:#240,9360>Endif
  1514.  
  1515. @û{ò╢@<:#240,9360>
  1516.  
  1517. @û{ò╢@<:#240,9360>Switch Id
  1518.  
  1519. @û{ò╢@<:#240,9360>    Case 9000
  1520.  
  1521. @û{ò╢@<:#240,9360>        
  1522.  
  1523. @û{ò╢@<:#240,9360>        ' this is for the list box
  1524.  
  1525. @û{ò╢@<:#226,9360>        Key= GetDlgItemText(Hdlg, 9000)
  1526.  
  1527. @û{ò╢@<:#240,9360>        FullText  = GetProfileString$(Section,Key,IniName)
  1528.  
  1529. @û{ò╢@<:#240,9360>        Example = StrField$(FullText, 2, Delimiter)
  1530.  
  1531. @û{ò╢@<:#240,9360>        Descx = StrField$(FullText, 1, Delimiter)
  1532.  
  1533. @û{ò╢@<:#240,9360>        SetDlgITemText(Hdlg, ExID,Example)
  1534.  
  1535. @û{ò╢@<:#240,9360>        SetDlgItemText(hdlg, DescID, Descx)
  1536.  
  1537. @û{ò╢@<:#240,9360>        Break;
  1538.  
  1539. @û{ò╢@<:#240,9360>
  1540.  
  1541. @û{ò╢@<:#240,9360>    Default
  1542.  
  1543. @û{ò╢@<:#240,9360>        ' this will be for any radio button
  1544.  
  1545. @û{ò╢@<:#240,9360>        ManageList(Hdlg, 9000, Section)
  1546.  
  1547. @û{ò╢@<:#240,9360>        Key= GetDlgItemText(Hdlg, 9000)
  1548.  
  1549. @û{ò╢@<:#240,9360>        FullText  = GetProfileString$(Section,Key,IniName)
  1550.  
  1551. @û{ò╢@<:#240,9360>        Example = StrField$(FullText, 2, Delimiter)
  1552.  
  1553. @û{ò╢@<:#240,9360>        Descx = StrField$(FullText, 1, Delimiter)
  1554.  
  1555. @û{ò╢@<:#240,9360>        SetDlgITemText(Hdlg, ExID,Example)
  1556.  
  1557. @û{ò╢@<:#240,9360>        SetDlgItemText(hdlg, DescID, Descx)
  1558.  
  1559. @û{ò╢@<:#240,9360>        Break;
  1560.  
  1561. @û{ò╢@<:#240,9360>
  1562.  
  1563. @û{ò╢@<:#240,9360>EndSwitch
  1564.  
  1565. @û{ò╢@<:#240,9360>
  1566.  
  1567. @û{ò╢@<:#240,9360>
  1568.  
  1569. @û{ò╢@<:#240,9360>End Function
  1570.  
  1571. @û{ò╢@<:#240,9360>
  1572.  
  1573. @û{ò╢@<:#240,9360>
  1574.  
  1575. @╠º▌╕╝«▌@<:#240,9360>Function ManageList(Hdlg, id, Section)
  1576.  
  1577. @û{ò╢@<:#240,9360>DefStr KeyName;
  1578.  
  1579. @û{ò╢@<:#240,9360>AppSendMessage(GetDlgItem(Hdlg, 9000),LB_RESETCONTENT,0,0)
  1580.  
  1581. @û{ò╢@<:#240,9360>AllKeys = GetProfileString$(Section,0,IniName)
  1582.  
  1583. @û{ò╢@<:#240,9360>Field = 1
  1584.  
  1585. @û{ò╢@<:#240,9360>While -1 != Assign(&KeyName, StrField$(AllKeys, Field, "~"))
  1586.  
  1587. @û{ò╢@<:#240,9360>    If KeyName <;>""
  1588.  
  1589. @û{ò╢@<:#240,9360>        SetDlgItemText(Hdlg, 9000, KeyName)
  1590.  
  1591. @û{ò╢@<:#240,9360>    Endif
  1592.  
  1593. @û{ò╢@<:#240,9360>    Field = Field + 1
  1594.  
  1595. @û{ò╢@<:#240,9360>Wend
  1596.  
  1597. @û{ò╢@<:#240,9360>End function
  1598.  
  1599. @û{ò╢@<:#240,9360>
  1600.  
  1601. @û{ò╢@<:#240,9360>
  1602.  
  1603. @û{ò╢@<:#240,9360>
  1604.  
  1605. @û{ò╢@<:#240,9360><:f200,1û╛Æ⌐,>
  1606.  
  1607. <:#240,9360><:f200,1û╛Æ⌐,>DIALOG    More
  1608.  
  1609. <:#226,9360><:f200,1û╛Æ⌐,>-2134376448    13    62    28    187    117    ""    ""    "üùè╓ÉöêΩùù"
  1610.  
  1611. <:#240,9360><:f200,1û╛Æ⌐,>FONT    8    "System"
  1612.  
  1613. <:#240,9360><:f200,1û╛Æ⌐,>7    12    50    10    20    1342242825    "button"    "ìαû▒(\036F\037╗)"    0 
  1614.  
  1615. <:#240,9360><:f200,1û╛Æ⌐,>7    24    50    10    21    1342242825    "button"    "ÄZÅp(\036S\037╝)"    0 
  1616.  
  1617. <:#240,9360><:f200,1û╛Æ⌐,>7    34    54    10    22    1342242825    "button"    "ô¥îv(\036M\037─)"    0 
  1618.  
  1619. <:#240,9360><:f200,1û╛Æ⌐,>7    45    50    10    23    1342242825    "button"    "ÿ_ù¥(\036L\037█)"    0 
  1620.  
  1621. <:#240,9360><:f200,1û╛Æ⌐,>79    14    58    40    9000    1352728579    "listbox"    ""    0 
  1622.  
  1623. <:#240,9360><:f200,1û╛Æ⌐,>7    56    176    24    30    1342308359    "button"    "ùß"    0 
  1624.  
  1625. <:#240,9360><:f200,1û╛Æ⌐,>7    82    176    32    31    1342308359    "button"    "Éαû╛"    0 
  1626.  
  1627. <:#240,9360><:f200,1û╛Æ⌐,>8    68    174    9    8010    1342177280    "static"    "text"    0 
  1628.  
  1629. <:#240,9360><:f200,1û╛Æ⌐,>8    93    174    20    1001    1342177280    "static"    "text"    0 
  1630.  
  1631. <:#240,9360><:f200,1û╛Æ⌐,>4    2    44    9    1000    1342177280    "static"    "Äφù▐:"    0 
  1632.  
  1633. <:#226,9360><:f200,1û╛Æ⌐,>78    2    40    9    1002    1342177280    "static"    "@è╓Éö:"    0 
  1634.  
  1635. <:#240,9360><:f200,1û╛Æ⌐,>143    2    40    13    1    1342373889    "button"    "æ}ôⁿ"    0 
  1636.  
  1637. <:#240,9360><:f200,1û╛Æ⌐,>143    18    40    13    2    1342373888    "button"    "╖¼▌╛┘"    0 
  1638.  
  1639. <:#226,9360><:f200,1û╛Æ⌐,>END DIALOG<:f>
  1640.  
  1641. @û{ò╢@<:#240,9360>
  1642.  
  1643. @û{ò╢@<:#240,9360>
  1644.  
  1645. @û{ò╢@<:#240,9360>
  1646.  
  1647. @û{ò╢@<:#202,9360><:f,1élér û╛Æ⌐,>DIALOG    Deprec
  1648.  
  1649. @û{ò╢@<:#404,9360><:f,1élér û╛Æ⌐,>-2134376448    11    56    53    226    78    ""    ""    "üùè╓ÉöëëÄZ"'Solve @Function"
  1650.  
  1651. @û{ò╢@<:#202,9360><:f,1élér û╛Æ⌐,>FONT    8    "System"    '"Helv"
  1652.  
  1653. @û{ò╢@<:#202,9360><:f,1élér û╛Æ⌐,>5    16    162    12    8000    1350631552    "edit"    ""    0 
  1654.  
  1655. @û{ò╢@<:#202,9360><:f,1élér û╛Æ⌐,>181    4    40    14    1    1342373889    "button"    "<:f,1élér û╛Æ⌐,>ÅIù╣"    0 'Done
  1656.  
  1657. @û{ò╢@<:#202,9360><:f,1élér û╛Æ⌐,>5    4    146    8    1001    1342177280    "static"    ""    0 
  1658.  
  1659. @û{ò╢@<:#202,9360><:f,1élér û╛Æ⌐,>173    64    46    8    8004    1342177281    "static"    ""    0 
  1660.  
  1661. @û{ò╢@<:#202,9360><:f,1élér û╛Æ⌐,>171    49    50    27    20    1342308359    "button"    ""    0 
  1662.  
  1663. @û{ò╢@<:#202,9360><:f,1élér û╛Æ⌐,>5    35    32    10    1002    1342177280    "static"    "<:f><:f,1élér û╛Æ⌐,>ùßéªé╬:"    0 
  1664. <:f><:f,1élér û╛Æ⌐,>'Example<:f>
  1665.  
  1666. @û{ò╢@<:#202,9360><:f,1élér û╛Æ⌐,>34    35    128    18    1003    1342177280    "static"    "text"    0 
  1667.  
  1668. @û{ò╢@<:#202,9360><:f,1élér û╛Æ⌐,>181    20    40    14    3    1342373888    "button"    "║╦▀░"    0 <:f,1élér û╛Æ⌐,>'Copy
  1669.  
  1670. @û{ò╢@<:#202,9360><:f,1élér û╛Æ⌐,>185    54    30    8    1000    1342177280    "static"    "<:f><:f,1élér û╛Æ⌐,>îïë╩:"    0 
  1671. <:f><:f,1élér û╛Æ⌐,>'Answer<:f>
  1672.  
  1673. @û{ò╢@<:#404,9360><:f,1élér û╛Æ⌐,>170    36    51    14    22    1342373888    "button"    "@<:f,1élér û╛Æ⌐,>è╓Éö(\036F\037╠)..."    0 '&Functions
  1674.  
  1675. @û{ò╢@<:#202,9360><:f,1élér û╛Æ⌐,>5    56    159    17    1004    1342177280    "static"    "text"    0 
  1676.  
  1677. @û{ò╢@<:#202,9360><:f,1élér û╛Æ⌐,>END DIALOG<:f>
  1678.  
  1679. >
  1680.  
  1681. [Embedded]
  1682. 00024298
  1683. >
  1684. [macsum] 13
  1685. Main 0 0 5 17
  1686. DataChange 477 3 4 39
  1687. InitDlg 731 3 2 55
  1688. FunButton 980 3 1 68
  1689. DisplayHelp 1077 0 4 77
  1690. CellEngine 1263 2 9 93
  1691. FontDlg 2229 3 5 170
  1692. DoIt 3030 2 6 226
  1693. InitCall 3539 3 5 269
  1694. RadioCall 3832 3 6 286
  1695. ManageList 4548 3 4 327
  1696. More 4820 0 -1 343
  1697. Deprec 5545 0 -1 363
  1698. [macse]
  1699. 14 Main
  1700. 0 802
  1701. 13
  1702. 8 2
  1703. 16 FontDlg 1 0 0
  1704. 16 CellEngine 1 0
  1705. 0 31 1001 "ÉöÄ«é⌐üùè╓Éöé≡ôⁿù═é╡é─é¡é╛é│éó"
  1706. 0 31 1003 "ÄOé┬é╠Éöé╠ìçîvé≡éRö{é╖éΘé╚éτüA@sum(12,22,34)*3é╞ôⁿù═"
  1707. 0 31 1004 "üùè╓Éöé╠âèâXâgé⌐éτÉöÄ«é╔æ}ôⁿé╖éΘé▒é╞é¬é┼é½é▄é╖"
  1708. 0 41 0 "{2}!InitDlg"
  1709. 0 41 22 "{2}!FunButton"
  1710. 0 41 8000 "{2}!DataChange"
  1711. 0 47 112 "{2}!DisplayHelp"
  1712. 0 26 "." "Deprec"
  1713. 13
  1714. 8 3
  1715. 6 3
  1716. 5 3
  1717. 18 0
  1718. 11 00000428
  1719. 0 27 8004
  1720. 13
  1721. 8 4
  1722. 0 1038 "{4}" 1
  1723. 16 FontDlg 4 0 0
  1724. 16 CellEngine 0 0
  1725. 6 0
  1726. 15
  1727. 9
  1728. 14 DataChange
  1729. 0 32 2
  1730. 0 42 "{0}" 8000
  1731. 13
  1732. 8 5
  1733. 16 CellEngine 3 "@IF({5}<<1E49,@Round({5},2),@ERR)"
  1734. 13
  1735. 8 6
  1736. 0 277 "{6}"
  1737. 13
  1738. 11 00000219
  1739. 6 6
  1740. 5 1
  1741. 4 0
  1742. 8 6
  1743. 0 19 "" "" 2 "{6}"
  1744. 13
  1745. 0 43 "{0}" 8004 [X]
  1746. 10 00000242
  1747. 0 43 "{0}" 8004 "{6}"
  1748. 6 3
  1749. 15
  1750. 9
  1751. 14 InitDlg
  1752. 0 32 2
  1753. 0 296 1
  1754. 5 1000
  1755. 8 4
  1756. 5 1004
  1757. 6 4
  1758. 18 2
  1759. 12 00000120
  1760. 10 00000159
  1761. 5 1
  1762. 6 4
  1763. 3 0
  1764. 8 4
  1765. 10 00000042
  1766. 16 FontDlg 3 "{0}" "{4}"
  1767. 10 00000087
  1768. 16 FontDlg 3 "{0}" 8000
  1769. 0 44 "{0}" 8000
  1770. 13
  1771. 0 1036 [X] 1045 120 0
  1772. 0 296 0
  1773. 6 3
  1774. 15
  1775. 9
  1776. 14 FunButton
  1777. 16 DoIt "{0}" 8000
  1778. 0 42 "{0}" 8000
  1779. 13
  1780. 16 DataChange "{0}" 8000 [X]
  1781. 6 3
  1782. 15
  1783. 9
  1784. 14 DisplayHelp
  1785. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  1786. 13
  1787. 8 1
  1788. 0 798
  1789. 13
  1790. 0 16 [X] "HelpPack.hlp"
  1791. 13
  1792. 8 2
  1793. 5 100
  1794. 8 3
  1795. 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
  1796. 6 0
  1797. 15
  1798. 9
  1799. 14 CellEngine
  1800. 0 802
  1801. 13
  1802. 8 6
  1803. 0 16 "{6}" "hIstance"
  1804. 13
  1805. 8 7
  1806. 0 798
  1807. 13
  1808. 8 8
  1809. 5 1
  1810. 6 0
  1811. 18 0
  1812. 11 00000446
  1813. 0 297 "{8}LTSCE01.DLL" "CECreateInstance" "HO"
  1814. 13
  1815. 8 9
  1816. 6 9
  1817. 5 0
  1818. 18 0
  1819. 11 00000276
  1820. 0 3 "LTSCE01.DLLé¬î⌐é┬é⌐éΦé▄é╣é± Windows├▐¿┌╕─╪░é╔║╦▀░é╡é─é¡é╛é│éó"
  1821. 5 -1
  1822. 15
  1823. 9
  1824. 0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &3
  1825. 13
  1826. 8 10
  1827. 0 271 "{7}" 1
  1828. 0 271 "{6}LibId" 1
  1829. 0 264 "{6}Libid" "{9}"
  1830. 0 264 "{7}" "{3}"
  1831. 6 3
  1832. 15
  1833. 9
  1834. 10 00000954
  1835. 10 00000954
  1836. 5 2
  1837. 6 0
  1838. 18 0
  1839. 11 00000550
  1840. 0 271 "{7}" 1
  1841. 0 265 "{7}"
  1842. 13
  1843. 8 3
  1844. 6 3
  1845. 15
  1846. 9
  1847. 10 00000954
  1848. 10 00000954
  1849. 5 3
  1850. 6 0
  1851. 18 0
  1852. 11 00000705
  1853. 0 271 "{7}" 1
  1854. 0 265 "{7}"
  1855. 13
  1856. 8 3
  1857. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{3}" "{1}" &4
  1858. 6 4
  1859. 15
  1860. 9
  1861. 10 00000954
  1862. 10 00000954
  1863. 5 0
  1864. 6 0
  1865. 18 0
  1866. 11 00000954
  1867. 0 271 "{7}" 1
  1868. 0 271 "{6}LibId" 1
  1869. 0 265 "{7}"
  1870. 13
  1871. 8 3
  1872. 0 265 "{6}LibId"
  1873. 13
  1874. 8 9
  1875. 6 3
  1876. 11 00000897
  1877. 0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{3}"
  1878. 0 298 "{9}"
  1879. 0 266 "{7}"
  1880. 0 266 "{6}LibId"
  1881. 10 00000954
  1882. 10 00000954
  1883. 6 2
  1884. 15
  1885. 9
  1886. 14 FontDlg
  1887. 5 1
  1888. 6 0
  1889. 18 0
  1890. 11 00000259
  1891. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 128 0 0 0 0 "System"
  1892. 13
  1893. 8 4
  1894. 0 271 "FontHandle" 1
  1895. 6 4
  1896. 11 00000221
  1897. 0 264 "FontHandle" "{4}"
  1898. 6 4
  1899. 15
  1900. 9
  1901. 10 00000233
  1902. 5 0
  1903. 15
  1904. 9
  1905. 10 00000789
  1906. 10 00000789
  1907. 5 2
  1908. 6 0
  1909. 18 0
  1910. 11 00000385
  1911. 0 265 "FontHandle"
  1912. 13
  1913. 8 5
  1914. 6 5
  1915. 11 00000360
  1916. 6 5
  1917. 15
  1918. 9
  1919. 10 00000372
  1920. 5 0
  1921. 15
  1922. 9
  1923. 10 00000789
  1924. 5 3
  1925. 6 0
  1926. 18 0
  1927. 11 00000600
  1928. 0 265 "FontHandle"
  1929. 13
  1930. 8 5
  1931. 6 5
  1932. 11 00000562
  1933. 0 44 "{1}" "{2}"
  1934. 13
  1935. 8 6
  1936. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
  1937. 5 1
  1938. 15
  1939. 9
  1940. 10 00000574
  1941. 5 0
  1942. 15
  1943. 9
  1944. 10 00000789
  1945. 10 00000789
  1946. 5 4
  1947. 6 0
  1948. 18 0
  1949. 11 00000789
  1950. 0 265 "FontHandle"
  1951. 13
  1952. 8 5
  1953. 6 5
  1954. 11 00000734
  1955. 0 284 "gdi,DeleteObject,HH" "{5}"
  1956. 5 1
  1957. 8 7
  1958. 10 00000744
  1959. 5 0
  1960. 8 7
  1961. 0 266 "FontHandle"
  1962. 6 7
  1963. 15
  1964. 9
  1965. 10 00000789
  1966. 6 3
  1967. 15
  1968. 9
  1969. 14 DoIt
  1970. 0 284 "User,EnableWindow,AHA" "{0}" 0
  1971. 0 802
  1972. 13
  1973. 8 3
  1974. 0 41 20 "{3}!RadioCall"
  1975. 0 41 21 "{3}!RadioCall"
  1976. 0 41 22 "{3}!RadioCall"
  1977. 0 41 23 "{3}!RadioCall"
  1978. 0 41 0 "{3}!InitCall"
  1979. 0 41 9000 "{3}!RadioCall"
  1980. 0 47 112 "{3}!DisplayHelp"
  1981. 0 31 20 1
  1982. 0 26 "." "More"
  1983. 13
  1984. 8 4
  1985. 6 4
  1986. 5 1
  1987. 18 0
  1988. 11 00000406
  1989. 0 42 "{0}" "{1}"
  1990. 13
  1991. 8 5
  1992. 0 27 8010
  1993. 13
  1994. 8 6
  1995. 0 16 "{5}" "{6}"
  1996. 13
  1997. 8 7
  1998. 0 43 "{0}" "{1}" "{7}"
  1999. 0 284 "User,EnableWindow,AHA" "{0}" 1
  2000. 0 44 "{0}" "{1}"
  2001. 13
  2002. 0 284 "user,SetFocus,HH" [X]
  2003. 6 2
  2004. 15
  2005. 9
  2006. 14 InitCall
  2007. 0 32 2
  2008. 16 FontDlg 3 "{0}" 1001
  2009. 16 FontDlg 3 "{0}" 8010
  2010. 16 ManageList "{0}" 9000 "ìαû▒è╓Éö"
  2011. 0 42 "{0}" 9000
  2012. 13
  2013. 8 4
  2014. 0 286 "ìαû▒è╓Éö" "{4}" "AmiCalc.ini"
  2015. 13
  2016. 8 5
  2017. 0 20 "{5}" 2 "~"
  2018. 13
  2019. 8 6
  2020. 0 20 "{5}" 1 "~"
  2021. 13
  2022. 8 7
  2023. 0 43 "{0}" 8010 "{6}"
  2024. 0 43 "{0}" 1001 "{7}"
  2025. 6 3
  2026. 15
  2027. 9
  2028. 14 RadioCall
  2029. 0 32 2
  2030. 0 42 "{0}" 20
  2031. 13
  2032. 11 00000086
  2033. 7 "ìαû▒è╓Éö"
  2034. 8 4
  2035. 10 00000265
  2036. 0 42 "{0}" 22
  2037. 13
  2038. 11 00000150
  2039. 7 "ô¥îvè╓Éö"
  2040. 8 4
  2041. 10 00000265
  2042. 0 42 "{0}" 21
  2043. 13
  2044. 11 00000214
  2045. 7 "ÄZÅpè╓Éö"
  2046. 8 4
  2047. 10 00000265
  2048. 0 42 "{0}" 23
  2049. 13
  2050. 11 00000265
  2051. 7 "ÿ_ù¥è╓Éö"
  2052. 8 4
  2053. 5 9000
  2054. 6 1
  2055. 18 0
  2056. 11 00000491
  2057. 0 42 "{0}" 9000
  2058. 13
  2059. 8 5
  2060. 0 286 "{4}" "{5}" "AmiCalc.ini"
  2061. 13
  2062. 8 6
  2063. 0 20 "{6}" 2 "~"
  2064. 13
  2065. 8 7
  2066. 0 20 "{6}" 1 "~"
  2067. 13
  2068. 8 8
  2069. 0 43 "{0}" 8010 "{7}"
  2070. 0 43 "{0}" 1001 "{8}"
  2071. 10 00000704
  2072. 10 00000704
  2073. 16 ManageList "{0}" 9000 "{4}"
  2074. 0 42 "{0}" 9000
  2075. 13
  2076. 8 5
  2077. 0 286 "{4}" "{5}" "AmiCalc.ini"
  2078. 13
  2079. 8 6
  2080. 0 20 "{6}" 2 "~"
  2081. 13
  2082. 8 7
  2083. 0 20 "{6}" 1 "~"
  2084. 13
  2085. 8 8
  2086. 0 43 "{0}" 8010 "{7}"
  2087. 0 43 "{0}" 1001 "{8}"
  2088. 10 00000704
  2089. 6 3
  2090. 15
  2091. 9
  2092. 14 ManageList
  2093. 0 44 "{0}" 9000
  2094. 13
  2095. 0 1036 [X] 1029 0 0
  2096. 0 286 "{2}" 0 "AmiCalc.ini"
  2097. 13
  2098. 8 5
  2099. 5 1
  2100. 8 6
  2101. 5 -1
  2102. 0 20 "{5}" "{6}" "~"
  2103. 13
  2104. 0 805 &4 [X]
  2105. 13
  2106. 18 1
  2107. 11 00000260
  2108. 6 4
  2109. 7 ""
  2110. 18 3
  2111. 11 00000227
  2112. 0 43 "{0}" 9000 "{4}"
  2113. 6 6
  2114. 5 1
  2115. 3 0
  2116. 8 6
  2117. 10 00000105
  2118. 6 3
  2119. 15
  2120. 9
  2121. DIALOG More
  2122. -2134376448 13 62 28 187 117 "" "" "üùè╓ÉöêΩùù" 
  2123. FONT 8 "System" 
  2124. 7 12 50 10 20 1342242825 "button" "ìαû▒(\036F\037╗)" 0 
  2125. 7 24 50 10 21 1342242825 "button" "ÄZÅp(\036S\037╝)" 0 
  2126. 7 34 54 10 22 1342242825 "button" "ô¥îv(\036M\037─)" 0 
  2127. 7 45 50 10 23 1342242825 "button" "ÿ_ù¥(\036L\037█)" 0 
  2128. 79 14 58 40 9000 1352728579 "listbox" "" 0 
  2129. 7 56 176 24 30 1342308359 "button" "ùß" 0 
  2130. 7 82 176 32 31 1342308359 "button" "Éαû╛" 0 
  2131. 8 68 174 9 8010 1342177280 "static" "text" 0 
  2132. 8 93 174 20 1001 1342177280 "static" "text" 0 
  2133. 4 2 44 9 1000 1342177280 "static" "Äφù▐:" 0 
  2134. 78 2 40 9 1002 1342177280 "static" "@è╓Éö:" 0 
  2135. 143 2 40 13 1 1342373889 "button" "æ}ôⁿ" 0 
  2136. 143 18 40 13 2 1342373888 "button" "╖¼▌╛┘" 0 
  2137. DIALOG Deprec
  2138. -2134376448 11 56 53 226 78 "" "" "üùè╓ÉöëëÄZ" 
  2139. FONT 8 "System" 
  2140. 5 16 162 12 8000 1350631552 "edit" "" 0 
  2141. 181 4 40 14 1 1342373889 "button" "ÅIù╣" 0 
  2142. 5 4 146 8 1001 1342177280 "static" "" 0 
  2143. 173 64 46 8 8004 1342177281 "static" "" 0 
  2144. 171 49 50 27 20 1342308359 "button" "" 0 
  2145. 5 35 32 10 1002 1342177280 "static" "ùßéªé╬:" 0 
  2146. 34 35 128 18 1003 1342177280 "static" "text" 0 
  2147. 181 20 40 14 3 1342373888 "button" "║╦▀░" 0 
  2148. 185 54 30 8 1000 1342177280 "static" "îïë╩:" 0 
  2149. 170 36 51 14 22 1342373888 "button" "@è╓Éö(\036F\037╠)..." 0 
  2150. 5 56 159 17 1004 1342177280 "static" "text" 0 
  2151. 00024323
  2152.